perm filename 12T[SCR,LCS] blob sn#367638 filedate 1978-07-11 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
C00004 ENDMK
CāŠ—;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
FUNC FUN.FUN[SCR,LCS];
INST TOOT TOP BOTM;
*
TOOT 0 1 38;
P2 NUM/.3X12/-.3;
P3 SUBR ;  <THE NOTES ARE CHOSEN IN THE SUBROUTINE
P4 .7;
P5 F2;
P6 F4;
END;